#lang rosetta-racket


(require "test-splines.rkt")

(provide test-splines-example)


(define (test-splines-example)
  (view-ortho-top
   (list
    (open-spline)
    (automatically-closed-spline)
    (closed-spline)
    (closed-spline-with-warning)
    
    (open-spline-tan)
    (automatically-closed-spline-tan)
    (closed-spline-tan)
    (closed-spline-tan-with-warning))))